;;;Modify the thickness of a selection set of text entities. (uses UREAL
;;;       The only input required is the desired thickness
;;;       and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-27-97
;;;	Edited:		8-27-97
;;;
(DEFUN C:TXTHK ( / tset tsln cntr tent edtw)
(setq thkval (ureal 1 "" "\nText thickness " (if thkval thkval 1)))
(prompt "\nSelect Text: ")
(setq tset (ssget '((-4 . "<or")(0 . "TEXT")(0 . "ATTDEF")(-4 . "or>"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
;    (if (eq (cdr (assoc 0 edtw)) "TEXT")
      (progn
        (if (assoc 39 edtw)
          (setq edtw
            (subst (cons 39 thkval)
                   (assoc 39 edtw)
                   edtw
            )
          )
          (setq edtw (append edtw (list(cons 39 thkval))))
        )
        (entmod edtw)
      )
;    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN
